home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1996 April
/
CHIP 1996 aprilis (CD06).zip
/
CHIP_CD06.ISO
/
sac
/
pack
/
rar155ru.exe
/
rar
/
STANDARD.S
< prev
next >
Wrap
Text File
|
1995-09-03
|
11KB
|
483 lines
; ┌────────────────────────────────────────────┐
; │ │
; │ ¡« ¡Ñ ¿ß»«½∞º«óáΓ∞ RAR ñ½∩ φΓ«ú« áασ¿óá │
; │ │
; │ ¥ÆÄ ÄæÄüàìì¢ë SFX - çÇÅôæÆêÆà ê ôéêäêÆà! │
; │ │
; └────────────────────────────────────────────┘
;
;
;
;
;
; iSFX ߵѡáα¿⌐ ¡Ñ »«¬áºδóáÑΓß∩ ¬á¬ áασ¿ó¡δ⌐ ¬«¼¼Ñ¡Γáα¿⌐ ß RAR 1.54 ¿ óδΦÑ!
DestDir="INSTALL"
; 諽¿τÑßΓó« Σá⌐½«ó ó áασ¿óÑ. êçîàìêÆ£ ìÇ ìÇæÆăÖàà!
files=1
; æó«í«ñ¡«Ñ ñ¿ß¬«ó«Ñ »α«ßΓαá¡ßΓó« ñ½∩ Σá⌐½«ó, ó íá⌐Γáσ. êçîàìêÆ£ ìÇ ìÇæÆăÖàà!
diskneed=1024
; ÿ¬á½á αáß»á¬«ó¬¿ Σá⌐½«ó
defbar BLACK,WHITE,WHITE,BLACK,14,7,52
; ANSI ¬«¼¼Ñ¡Γáα¿⌐ ─────────────────────────────────────────────────────────
clrscr
outtext ansi on
RAR ê¡ßΓá½∩µ¿«¡¡δ⌐ SFX ¼«ñπ½∞
櫺ñá¡ ß »«¼«Θ∞ε RAR 1.55
outtext ansi off
; Åα«óÑα¬á φ½.»«ñ»¿ß¿
if AVPresent == -1
Message WHITE,RED,"ÄΦ¿í¬á","ìÑóÑα¡á∩ φ½Ñ¬Γα«¡¡á∩ »«ñ»¿ß∞"
exit 1
endif
if AVPresent == 0
Message WHITE,RED,"ÄΦ¿í¬á","ìÑΓ φ½Ñ¬Γα«¡¡«⌐ »«ñ»¿ß¿"
exit 1
endif
; Äß¡«ó¡«⌐ Σ«¡
setcolor DARKGRAY,BLACK
window 1,1,80,25
clrscr 219
; Äß¡«ó¡«Ñ «¬¡«
window 1,1,80,25
; AV info
box 3,3,68,8,YELLOW,BLUE,SINGLE
setcolor YELLOW,BLUE
gotoxy 24,3
text " ê¡Σ«α¼áµ¿∩ «í áασ¿óÑ "
setcolor DARKGRAY,BLACK
window 5,9,69,9
clrscr 177
window 69,4,69,9
clrscr 177
window 4,4,67,7
setcolor LIGHTCYAN,BLUE
clrscr
; Å«½∩
gotoxy 1,1
text " êßσ«ñ¡«Ñ ¿¼∩ áασ¿óá: "
gotoxy 1,2
text " ÆѬπΘÑÑ ¿¼∩ áασ¿óá: "
gotoxy 1,3
text " äáΓá áασ¿óá: "
gotoxy 1,4
text " èѼ ß«ºñá¡: "
; ç¡áτÑ¡¿∩
setcolor WHITE,BLUE
gotoxy 26,1
if AVArcName!="AVArcName"
text AVArcName
endif
gotoxy 26,2
text ArcName
gotoxy 26,3
if AVDate!="AVDate"
text "óδ»πΘÑ¡ ",AVDate
endif
gotoxy 26,4
if AVUserName!="AVUserName"
text AVUserName
endif
window 1,1,80,25
; 쿪¡∩∩ ßΓ᫬á
setcolor LIGHTCYAN,DARKGRAY
gotoxy 1,25
text " ì᪼¿ΓÑ F1 ñ½∩ »«ñ߬Ậ¿, Alt-X - óδσ«ñ "
; ÆÑ¡∞
setcolor DARKGRAY,BLACK
window 25,17,57,17
clrscr 177
window 54,11,57,17
clrscr 177
window 1,1,80,25
; çóπ¬
sound 90,1
; îÑ¡ε πßΓá¡«ó¬¿:
Menu:
Choice = menu 25,10,BLACK,WHITE,1,"îÑ¡ε πßΓá¡«ó¬¿"," ￵ѡº¿∩ "," ÅπΓ∞ πßΓá¡«ó¬¿ "," ôßΓá¡«ó¿Γ∞ "," éδσ«ñ"
if Choice == 0
goto Quit
endif
if Choice==1
savescr 1
FirstPage:
window 1,1,80,25
setcolor LIGHTCYAN,BLUE
clrscr
box 1,1,80,25,LIGHTCYAN,BLUE,DOUBLE
gotoxy 8,25
ctext " ì᪼¿ΓÑ PgDn ñ½∩ ß½ÑñπεΘÑ⌐ ßΓαá¡¿µδ ¿½¿ Esc - ó«ºóαáΓ ó ¼Ñ¡ε... "
gotoxy 1,1
ctext " ￵ѡº¿«¡¡«Ñ ß«ú½áΦÑ¡¿Ñ "
gotoxy 1,1
window 2,2,80,25
setcolor YELLOW,BLUE
sound 140,5
outtext on
outtext off
GetKey1:
Key=getkey
if Key==27
restscr 1
goto Menu
endif
if Key==337
SecondPage:
window 1,1,80,25
setcolor LIGHTCYAN,BLUE
clrscr
box 1,1,80,25,LIGHTCYAN,BLUE,DOUBLE
gotoxy 8,25
ctext " ì᪼¿ΓÑ PgUp ¿½¿ Esc - ó«ºóαáΓ ó ¼Ñ¡ε ..."
window 2,2,80,25
setcolor YELLOW,BLUE
gotoxy 1,1
sound 145,5
outtext on
outtext off
GetKey2:
Key=getkey
if Key==27
restscr 1
goto Menu
endif
if Key == 329
goto FirstPage
endif
goto GetKey2
endif
goto GetKey1
endif
if Choice == 2
savescr 1
setcolor WHITE,CYAN
window 11,10,67,15
clrscr
box 4,2,54,5,WHITE,CYAN,SINGLE
gotoxy 20,2
text " ÅπΓ∞ πßΓá¡«ó¬¿ "
window 15,12,63,13
clrscr
setcolor WHITE,CYAN
gotoxy 4,1
text "éóÑñ¿ΓÑ »πΓ∞ - ñ¿αÑ¬Γ«α¿⌐ ¬πñá πßΓá¡áó½¿óáΓ∞"
window 18,13,60,13
Res=INPUT DARKGRAY,WHITE,DestDir,DestDir,42
restscr 1
window 1,1,80,25
goto Menu
endif
if Choice == 3
box 6,11,76,24,LIGHTCYAN,BLUE,DOUBLE
setcolor LIGHTCYAN,BLUE
gotoxy 27,11
text " Åα«µÑßß πßΓá¡«ó¬¿: "
window 7,12,75,23
clrscr
; Åα«óÑα¬á ¡á½¿τ¿∩ ßó«í«ñ¡«ú« ¼ÑßΓá
DiskSpace=getdfree
KDiskSpace=DiskSpace/1024
KDiskNeed=diskneed/1024
text "ôßΓá¡«ó¬á ¡áτá½áß∞.\n"
text "ÆαÑíπÑΓß∩ ßó«í«ñ¡«ú« ¼ÑßΓá: ",KDiskNeed," Kb\n"
text "æó«í«ñ¡«Ñ ¼ÑßΓ« ¡á ñ¿ß¬Ñ: ",KDiskSpace," Kb\n"
inswrow=4
window 1,1,80,25
if DiskSpace < diskneed
savescr 1
window 1,1,80,25
sound 2300,25
delay 100
sound 1450,25
delay 100
sound 2300,100
Choice = menu 24,16,WHITE,RED,1,"ìÑ σóáΓáÑΓ ¼ÑßΓá","Åα«ñ«½ª¿Γ∞ πßΓá¡«ó¬π"," éδσ«ñ"
if Choice == 0
goto Quit
endif
if Choice == 2
goto Quit
endif
restscr 1
endif
endif
if Choice == 4
Quit:
setcolor WHITE,BLACK
clrscr
gotoxy 2,3
text "¥Γ«Γ SFX ñ¿ßΓα¿íπΓ¿ó ¡Ñ íδ½ πßΓá¡«ó½Ñ¡."
sound 380,25
delay 210
sound 190,25
exit 1
goto Menu
endif
; ìÇùÇïÄ êìæÆÇïƒûêê!
; ctext "ê¡ßΓá½∩µ¿∩ ¡áτá½áß∞."
proc OnKey
window 1,1,80,25
if Par1 == 3
savescr 15
Par1=-1
sound 2300,25
delay 100
sound 1450,100
Choice=Menu 22,11,WHITE,LIGHTRED,1,"Ctrl-Break"," ÅαÑαóáΓ∞ "," Åα«ñ«½ª¿Γ∞ πßΓá¡«ó¬π "
if Choice == 1
exit 1
endif
restscr 15
endif
if Par1 == 301
goto Quit
endif
if Par1 == 315
savescr 15
call OutHelp
Par1=-1
restscr 15
endif
endp
proc ChangeVol
window 7,12,75,23
setcolor YELLOW,BLUE
gotoxy 1,inswrow
if Par2 == 0
text ".. ÆÄî #",Par1," ¡Ñ«íσ«ñ¿¼« »«ßΓáó¿Γ∞."
savescr 14
Par1=-1
sound 2300,25
delay 100
sound 1450,100
sound 5450,50
sound 7450,25
sound 1450,100
Choice=Menu 22,11,WHITE,GREEN,1," æ¼Ñ¡¿Γ∞ Γ«¼ "," Éá߻ᬫóδóáΓ∞ ß½Ññ. Γ«¼ "," éδ⌐Γ¿ ¡Ñ¼Ññ½Ñ¡¡« "
restscr 14
if Choice == 2
window 7,12,75,23
inswrow=inswrow+1
gotoxy 1,inswrow
text " Æ«¼ ¡Ñ ¡á⌐ñÑ¡. éδσ«ñ¿¼... "
exit 1
endif
endif
if Par2 != 0
setcolor LIGHTCYAN,BLUE
text ".. ÆÄî #",Par1," αá߻ᬫóδóáÑΓß∩."
endif
if inswrow = 12
text "\n"
endif
if inswrow < 12
inswrow=inswrow+1
endif
window 1,1,80,25
endp
proc FileDone
gotoxy 49,11
setcolor LIGHTCYAN,BLUE
Percent=Par1*100
Percent=Percent/files
text Percent,"%% "
window 7,12,75,23
setcolor LIGHTCYAN,BLUE
gotoxy 1,inswrow
text DestFileName
if inswrow = 12
text "\n"
endif
if inswrow < 12
inswrow=inswrow+1
endif
window 1,1,80,25
endp
proc Error
window 7,12,75,23
setcolor LIGHTCYAN,BLUE
gotoxy 1,inswrow
Title="ÄΦ¿í¬á"
; Par1 is assigned with error code:
if Par1 == 1
Message="öáΓá½∞¡á∩ «Φ¿í¬á"
call ErrMsg
endif
if Par1 == 2
Message="ÄΦ¿í¬á CRC, áασ¿ó ¿ß»«ατÑ¡"
call ErrMsg
endif
if Par1 == 3
Message="ÄΦ¿í¬á ºá»¿ß¿"
call ErrMsg
endif
if Par1 == 4
Message="ÄΦ¿í¬á ß«ºñá¡¿∩ Σá⌐½á"
call ErrMsg
endif
if Par1 == 5
Message="ÄΦ¿í¬á τΓÑ¡¿∩"
call ErrMsg
endif
if Par1 == 6
Message="ÄΦ¿í¬á ºá¬αδΓ¿∩ Σá⌐½á"
call ErrMsg
endif
if Par1 == 7
Message="ÄΦ¿í¬á «Γ¬αδΓ¿∩ Σá⌐½á"
call ErrMsg
endif
if Par1 == 8
Message="ìÑ σóáΓáÑΓ »á¼∩Γ¿"
call ErrMsg
endif
if inswrow = 12
text "\n"
endif
if inswrow < 12
inswrow=inswrow+1
endif
window 1,1,80,25
endp
proc ErrMsg
window 17,14,62,21
setcolor WHITE,RED
clrscr
window 1,1,80,25
box 20,15,59,20,WHITE,RED,DOUBLE
gotoxy 1,15
ctext " ",Title," "
gotoxy 1,17
ctext Message
setcolor WHITE,BLACK
gotoxy 1,19
ctext " Ok "
sound 20,5
sound 80,50
delay 15000
window 1,1,80,25
endp
proc ArcDone
sound 3300,25
delay 100
sound 2450,100
window 7,12,75,23
setcolor LIGHTCYAN,BLUE
gotoxy 1,inswrow
text "éßÑ. ôßΓá¡«ó¬á ºáóÑαΦÑ¡á"
delay 500
savescr 2
Title=" Åα«µÑßß πßΓá¡«ó¬¿ "
Message=" ôßΓá¡«ó¬á ºáóÑαΦÑ¡á "
call OkMsg
restscr 2
endp
proc OkMsg
window 24,14,57,21
setcolor BLACK,WHITE
clrscr
window 1,1,80,25
box 27,15,53,20,BLACK,WHITE,DOUBLE
gotoxy 1,15
ctext " ",Title," "
gotoxy 1,17
ctext Message
setcolor WHITE,BLACK
gotoxy 1,19
ctext " Ok "
delay 50000
window 1,1,80,25
endp
proc OutHelp
setcolor BLACK,CYAN
box 14,6,65,20,BLACK,CYAN,SINGLE
gotoxy 37,6
text " æ»αáó¬á "
window 15,7,64,19
clrscr
outtext on
æ¡áτá½á ºáñá⌐ΓÑ »πΓ∞ πßΓá¡«ó¬¿ ¿º ¼Ñ¡ε, ºáΓѼ
óδíÑα¿ΓÑ »π¡¬Γ ¼Ñ¡ε "ôßΓá¡«ó¿Γ∞" - τΓ«íδ
¡áτáΓ∞ πßΓá¡«ó¬π.
Å«ß½Ñ πß»ÑΦ¡«⌐ αáß»á¬«ó¬¿ Σá⌐½δ íπñπΓ αẼÑΘÑ¡δ
»« π¬áºá¡¡«¼π »πΓ¿.
outtext off
delay
endp
;
;
;
;
;
;
;
;
;
;
;
; ┌────────────────────────────────────────────┐
; │ │
; │ ¡« ¡Ñ ¿ß»«½∞º«óáΓ∞ RAR ñ½∩ φΓ«ú« áασ¿óá │
; │ │
; │ ¥ÆÄ ÄæÄüàìì¢ë SFX - çÇÅôæÆêÆà ê ôéêäêÆà! │
; │ │
; └────────────────────────────────────────────┘
;
;
;
;
;
; iSFX ߵѡáα¿⌐ ¡Ñ »«¬áºδóáÑΓß∩ ¬á¬ áασ¿ó¡δ⌐ ¬«¼¼Ñ¡Γáα¿⌐ ß RAR 1.54 ¿ óδΦÑ!